home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfarchcode.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  496b  |  30 lines
  1.  
  2. /* $Id: Pvmfarchcode.c,v 1.1 1997/06/27 16:13:48 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\src\pvmwin.h"
  6. #endif
  7.  
  8. #include "pvm3.h"
  9. #include "pvm_consts.h"
  10.  
  11. void __fortran
  12. PVMFARCHCODE (arch_ptr, code, arch_len)
  13. char * arch_ptr; int arch_len;
  14. int *code;
  15. {
  16.     char tarch[MAX_HOST_NAME + 1];
  17.  
  18.     /*
  19.      * Copy the arch name to make sure there's
  20.      * a NUL at the end.
  21.      */
  22.     if (ftocstr(tarch, sizeof(tarch), arch_ptr, arch_len)) {
  23.         *code = PvmBadParam;
  24.         return;
  25.     }
  26.  
  27.     *code = pvm_archcode(tarch);
  28. }
  29.  
  30.